home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 138 / Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64 / toolpack 1 _jsl (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 9 poke53280,14:poke53281,14:poke53272,21:poke657,128
  2. 10 print"[147]    [213][195][195][174]"
  3. 11 print"    [194][194] [194]   [175][175][175][175][175]           [176][195][195][195][201]"
  4. 12 print"   [213][203][171][195][189]   [165] [194] [167]        [206][183][205][194] [194] [194]"
  5. 13 print"   [194] [171][195][178][195][195][195][205] [194] [206][195][195][195][174]   [206] [194] [205] [194] [171][195][195][195][174]"
  6. 14 print"[195][195][195][179] [194] [194] [194] [194][205][175][206][194] [194] [171][195][195][195][165]   [167][195][177][195][177][174] [176][177][195][195][195][195]";
  7. 15 print"   [202][195][195][195][179] [194] [194]   [194] [176][195][219][195][195][195][201] [194] [167]    [194] [194]"
  8. 16 print"       [173][195][195][195][189]   [173][195][195][195][179] [194] [194][183][183][183][183]    [173][195][189]"
  9. 17 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [194] [171][195]toolpack#1[195][195][195][195][195]";
  10. 18 print"                   [173][195][177][195][189]";
  11. 100 print"                 (1) dec to hex
  12. 101 [153]" (2) hex to dec
  13. 102 print" (3) security listing prg
  14. 103 [133]" number";p$
  15. 104 [139] p$[178]"1" [167] [137] 500
  16. 105 [139] p$[178]"2" [167] [137] 509
  17. 106 [139] p$[178]"3" [167] [137] 900
  18. 107 [137] 9
  19. 500 [133] "dec=";a
  20. 501 b1[178][181](a[173](16[172]16[172]16)):r1[178]b1[172]16[172]16[172]16
  21. 502 a[178]a[171]r1
  22. 503 b2[178][181](a[173](16[172]16)):r2[178]b2[172]16[172]16
  23. 504 a[178]a[171]r2
  24. 505 b3[178][181](a[173]16):r3[178]b3[172]16
  25. 506 b4[178]a[171]r3
  26. 507 [153] b1;b2;b3;b4
  27. 508 [128]
  28. 509 [133] "hex=";a$
  29. 510 l[178][195](a$)
  30. 511 [129] k [178] 1[164] l
  31. 512 m[178]16[174](l[171]k)
  32. 513 b$[178][202](a$,k,1)
  33. 514 v[178][198](b$)
  34. 515 [139] v[177][178]65 [175] v[179][178]70 [167] w[178]v[171]55
  35. 516 [139] v[179][178]57 [167] w[178]v[171]48
  36. 517 n[178] w[172]m
  37. 518 g[178]g[170]n
  38. 519 [130] k
  39. 520 [153] g
  40. 521 [128]
  41. 900 [153]"load"
  42. 901 [153]"on security listing           version 1.0 wait"
  43. 902 [153]
  44. 903 [153]" from: jsl in 1991
  45. 904 print"press space!":wait197,63
  46. 905 fori=49730to49886:reada:b=b+a:pokei,a:next
  47. 906 ifb<>22263thenprint"wrong data!!":end
  48. 907 print"[147]load now the basic prg to be secured"
  49. 908 print"and start with sys49730 ...
  50. 909 [131]160,0,165,45,133,171,165,46,133,172
  51. 910 [131]165,55,133,169,165,56,133,170,198,171
  52. 911 [131]165,171,201,255,208,2,198,172,198,169
  53. 912 [131]165,169,201,255,208,2,198,170,177,171
  54. 913 [131]145,169,165,171,197,43,165,172,229,44
  55. 914 [131]176,222,160,1,177,169,200,17,169,240
  56. 915 [131]67,160,0,177,169,145,171,200,192,5
  57. 916 [131]208,247,165,171,24,105,5,133,171,144
  58. 917 [131]2,230,172,160,0,152,145,171,200,169
  59. 918 [131]58,192,5,208,247,177,169,240,6,145
  60. 919 [131]171,200,76,161,194,152,24,101,169,133
  61. 920 [131]169,144,2,230,170,152,24,101,171,133
  62. 921 [131]171,144,185,230,172,76,118,194,160,0
  63. 922 [131]152,145,171,200,192,3,208,249,152,24
  64. 923 [131]101,171,133,45,165,172,105,0,133,46
  65. 924 [131]76,171,225,96,96,165,142
  66.